VERSION 2.00
Begin Form Form1 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "AVI & FLI Player (C) J.D.A. 94"
   ClientHeight    =   3720
   ClientLeft      =   1416
   ClientTop       =   2352
   ClientWidth     =   4932
   Height          =   4464
   Icon            =   AVIPLAY.FRX:0000
   Left            =   1368
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   310
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   411
   Top             =   1656
   Width           =   5028
   Begin MMControl MMControl1 
      BackVisible     =   0   'False
      BorderStyle     =   0  'None
      EjectVisible    =   0   'False
      Height          =   330
      Left            =   120
      RecordVisible   =   0   'False
      TabIndex        =   0
      Top             =   120
      Width           =   2370
   End
   Begin PictureBox Picture1 
      AutoRedraw      =   -1  'True
      Height          =   3630
      Left            =   60
      ScaleHeight     =   240.8
      ScaleMode       =   0  'User
      ScaleWidth      =   320.201
      TabIndex        =   1
      Top             =   60
      Width           =   4815
   End
   Begin Menu Fuente 
      Caption         =   "Fuente"
      Begin Menu Vídeo 
         Caption         =   "Vídeo"
         Checked         =   -1  'True
      End
      Begin Menu Animación 
         Caption         =   "Animación"
      End
      Begin Menu Separador 
         Caption         =   "-"
      End
      Begin Menu Salir 
         Caption         =   "Salir"
      End
   End
End
Sub Animación_Click ()
    
    Vídeo.Checked = 0
    Animación.Checked = 1
    Form1.MMControl1.Command = "Close"
    Form1.MMControl1.Notify = True
    Form1.MMControl1.Wait = True
    Form1.MMControl1.Shareable = False
    Form1.MMControl1.DeviceType = "Animation1"
    Form1.MMControl1.FileName = "socket.fli"

    Form1.MMControl1.Command = "Open"
    'Form1.MMControl1.hWndDisplay = Form1.hWnd
    Form1.MMControl1.EjectVisible = False
    Form1.MMControl1.RecordVisible = False
    Form1.MMControl1.StepVisible = 1
    Form1.MMControl1.BackVisible = 1
    Form1.MMControl1.NextVisible = 0
    Form1.MMControl1.PrevVisible = 1

End Sub

Sub Form_Load ()

Form1.ScaleWidth = 340
Form1.ScaleHeight = 250

Vídeo_Click

End Sub

Sub Form_Unload (Cancel As Integer)

  Form1.MMControl1.Command = "Close"

End Sub

Sub MMControl1_Done (NotifyCode As Integer)

    Form1.MMControl1.Command = "Prev"

End Sub

Sub Salir_Click ()

End

End Sub

Sub Vídeo_Click ()
    
    Vídeo.Checked = 1
    Animación.Checked = 0
    Picture1.ScaleHeight = 240
    Picture1.ScaleWidth = 320
    Form1.MMControl1.Command = "Close"
    Form1.MMControl1.Notify = True
    Form1.MMControl1.Wait = True
    Form1.MMControl1.Shareable = False
    Form1.MMControl1.DeviceType = "AVIVideo"
    Form1.MMControl1.FileName = "t2-trans.avi"

    Form1.MMControl1.Command = "Open"
    Form1.MMControl1.hWndDisplay = Picture1.hWnd
    Form1.MMControl1.EjectVisible = False
    Form1.MMControl1.RecordVisible = False
    Form1.MMControl1.StepVisible = 1
    Form1.MMControl1.BackVisible = 1
    Form1.MMControl1.NextVisible = 0
    Form1.MMControl1.PrevVisible = 1
    
End Sub